The Trig Explorer/The Trig Explorer.iso/mac/Explorer/LAT-LONG.dxr/00010_Chack Drag ang Drop Answer.ls

Text File | 1998-07-22 | 677 b | 20 lines

on beginSprite me
  set the cursor of sprite the spriteNum of me to [member "Hand", member "Hand Mask"]
end

on endSprite me
  set the cursor of sprite the spriteNum of me to 0
end

on mouseDown me
  set the cursor of sprite the spriteNum of me to [member "Closed Hand", member "Closed Hand Mask"]
  repeat while the stillDown
    set the loc of sprite the spriteNum of me to point(the mouseH, the mouseV)
    updateStage()
  end repeat
  set the cursor of sprite the spriteNum of me to [member "Hand", member "Hand Mask"]
  if sprite 12 intersects 18 and sprite 13 intersects 20 and sprite 14 intersects 19 and sprite 15 intersects 17 then
    go("Right Answer")
  end if
end